home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol029 / cprint.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  1.9 KB  |  45 lines
  1. 10 REM    CITOH 8510 (NEC 2083) PRINTER OPTION PROGRAM
  2. 20 REM    BY CHARLES VELLA, PH.D. (BASED ON THE
  3. 30 REM    IBM PRINTER OPTION PROGRAM
  4. 40 REM    BY LINDA AND SID BROUDY)
  5. 50 CLS:KEY OFF
  6. 60 PRINT TAB(20) "CITOH 8510 PRINTER OPTION MENU"
  7. 70 PRINT:PRINT "Choose from the following options:"
  8. 80 PRINT
  9. 90 PRINT "0) End program":PRINT
  10. 100 PRINT "1) Proportional characters"
  11. 110 PRINT "2) Pica  characters (10 cpi) (default)"
  12. 120 PRINT "3) Elite characters (12 cpi)"
  13. 130 PRINT "4) Compressed characters (17 cpi)":PRINT
  14. 140 PRINT "5) Regular mode (default)"
  15. 150 PRINT "6) Double-strike (bold print) mode":PRINT
  16. 160 PRINT "7) Normal line spacing (1/6 inch line) (default)"
  17. 170 PRINT "8) Compressed line spacing (1/8 inch line)":PRINT
  18. 180 PRINT "9) Start underlining"
  19. 190 PRINT "10) End underlining":PRINT
  20. 200 PRINT "11) Double width mode"
  21. 210 PRINT "12) Double width mode off":PRINT
  22. 220 INPUT "Which option do you wish";ANS
  23. 230 IF ANS<0 OR ANS>12 THEN BEEP:GOTO 220
  24. 240 IF ANS=0 THEN 390
  25. 250 ON ANS GOSUB 290,300,310,320,330,340,350,360,370,380,390,400
  26. 260 PRINT "Done..."
  27. 270 FOR DELAY=1 TO 500 :NEXT
  28. 280 GOTO 50
  29. 290 LPRINT CHR$(27);"P";:RETURN  'set Proportional characters
  30. 300 LPRINT CHR$(27);"N";:RETURN  'set Pica characters
  31. 310 LPRINT CHR$(27);"E";:RETURN  'set Elite characters
  32. 320 LPRINT CHR$(27);"Q";:RETURN  'set Compressed characters
  33. 330 LPRINT CHR$(27)+CHR$(34);:RETURN 'Bold print mode off
  34. 340 LPRINT CHR$(27);"!";:RETURN 'Bold print mode on
  35. 350 LPRINT CHR$(27);"A";:RETURN 'Normal line spacing
  36. 360 LPRINT CHR$(27);"B";:RETURN 'Compressed line spacing
  37. 370 LPRINT CHR$(27);"X";:RETURN 'Underline On
  38. 380 LPRINT CHR$(27);"Y";:RETURN 'Underline Off
  39. 390 LPRINT CHR$(14);:RETURN     'Double width on
  40. 400 LPRINT CHR$(15);:RETURN     'Double width off
  41. 410 END
  42.  'Underline Off
  43. 390 LPRINT CHR$(14);:RETURN     'Double width on
  44. 400 LPRINT CHR$(15);:RETURN     'Double width off
  45.